home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 165 / XENIATGM165.ISO / cddata / main.dxr / 00004_DirectMedia Xtra Simple Control.ls < prev    next >
Encoding:
Text File  |  2003-05-29  |  961 b   |  26 lines
  1. property videoSprite, VideoCommand
  2.  
  3. on DoControl me
  4.   case me.VideoCommand of
  5.     #play:
  6.       videoplay(sprite(me.videoSprite))
  7.     #pause:
  8.       videopause(sprite(me.videoSprite))
  9.     #rewind:
  10.       videoseek(sprite(me.videoSprite), sprite(me.videoSprite).segmentstart)
  11.   end case
  12. end
  13.  
  14. on mouseUp me
  15.   DoControl(me)
  16. end
  17.  
  18. on getPropertyDescriptionList
  19.   p_list = [#VideoCommand: [#comment: "Action:", #format: #symbol, #range: [#play, #pause, #rewind], #default: #play], #videoSprite: [#comment: "DirectMedia Sprite Channel:", #format: #integer, #default: 1]]
  20.   return p_list
  21. end
  22.  
  23. on getBehaviorDescription
  24.   return "Used to create Play, Pause, and Rewind control buttons for a DirectMedia Xtra video sprite. " & RETURN & "PARAMETERS:" & RETURN & "Action - Choose the action to perform on mouseUP ( Play, Pause, Rewind )." & RETURN & "DirectMedia Sprite Channel - Enter the number of sprite channel of the DirectMedia Xtra video that is being controlled."
  25. end
  26.